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ABSTRACT 


Three areas of research are discussed. The first area is a discussion 
of the use of an APPL.E 11+ microcomputer to collect data during the opera- 
tion of the 7" Mach Seven Tunnel. The second area of investigation is a 
metnod by which the contamination of liquid oxygen is monitored with sound 
speed tecnniques. The last subject area is a study of the electrical 
equivalent of a transducer oonded to a hiyn pressure fill plug. Tne tnree 
areas are briefly explained and aata gathered for each area is presented. 
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ULTRASOUND INSTRUMENTATION FUR THE 7" MACH SEVEN TUNNEL 


By 

David S. Mazel 1 and Roland R. Mlelke 2 
INTRODUC T ION 

During the past four months, three areas of study have been investi- 
gated. The first area is the use of an APPLE 11+ microcomputer to gather 
data for the 7" Mach Seven Wind Tunnel. Appropriate software was written 
a id tested along with the development of necessary hardware. The next suo- 
ject area is the monitoring of the contamination of liquid oxygen (LOX) oy 
liquid nitrogen (LN 2 ) witn sound speed techniques. The last area of inves- 
tigation was modeling a transducer with electrical components. Tne progress 
’n each area is oriefly presented. Program listings are given in tne appen- 
dices. Data from the L0X-LN 2 study is given graphically. 

SUMMARY OF WORK 

The developed software for ihe 7" Mach 7 wind tunnel allows the user to 
view instrument readings prior to a test. Immediately before tne test be- 
gins, a pushbutton is pressed which triggers the APPLE 11+ to record data 
from various instruments. After the test is completed, another pushbutton 
is pressed which stops the APPLE 11+ from taking data. The recorded data 
are saved on a diskette. Thus, the data can be reviewed at later times, or 
printed on paper for permanent record. Flowcharts are shown in Figures 1 
and 2. A user's guide is provided in the next section. The program list- 
ings are shown in Appendices A, 6, and C. 

Undergraduate Research Assistant, Department of Electrical Engineering, Old 
Dominion University, Norfolk, Virginia 23508. 

2 Chairman/ Associate Professor, Department of Electrical Engineering, Old 
Dominion University, Norfolk, Virginia 23508. 



Figure 1. Software Configuration of the Data Acquisition System: 
Start. Fetch Program. 
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Figure 2. Software Configuration of the Data Acquisition System: 
Bring. Back Program. 
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The second area of Interest, LN 2 -LOX contamination monitoring, was 
completed. Data representing the results of numerous experiments Is pre- 
sented graphically In Figures 3 and 4. A paper concerning LN 2 -LOX contami- 
nation monitoring Is being written for a NASA reference publication. 

The last area of research concerned an Invention, NASA case number 
L AR1 3300-1 -CU, to monitor liquid levels In high pressure tanks. A trans- 
ducer was oonded to a high pressure fill plug. The fill plug Is placed in 
direct contact wltn the liquid and the transducer is excited. The plug and 
transducer comprise a composite resonator which emits an ultrasonic pulse 
into the liquid. The transducer also receives the reflected pulse. The 
time difference between the transmitted and reflected pulses indicate the 
liquid deotn. The technique is pulse-echo. 

A transducer can oe modelled as two inductor-capacitor (L-C) circuits. 
When the transducer is bonded to the plug, however, additional modes of 
excitation exist. Each additional mode is represented by an additional L-C 
circuit. The circuit which models the composite resonator is shown in Fig- 
ure 5. The circuit was analyzed with E.C.A.P. (Electronic Circuit Analysis 
Program) to compare the frequency response of the model with the frequency 
response of the actual transducer. A sample graph, as generated with 

E.C.A.P., is given in Figure 6. This graph compares favorably with the 
actual response of the composite resonator (not shown). 

TUNNEL SOFTWARE OPERATING PROCEDURE 

A. Initialization 

1. Turn on the video monitor (Monitor III) 

Turn on the printer (Epson) 
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Turn on the computer (APPLE 11+) 

Note: Power Indicator lights on the three units should be on. 

The “IN USE" light on Disk Drive 1 should be on. 

2. Insert a prepared disk Into Drive 1. 

3. Close the door of the disk drive. 

4. Wait for the “IN USE" light of Drive 1 to go off. 
d. Observe tne video monitor 

One will see 

ENTER YOUR CHOICE 

(1) RETRIEVE DATA FROM DISK 

(2} DISPLAY AND COLLECT DATA FROM INSTRUMENTS 

(3) EXIT PROGRAM 

6. If one wants to print data already saved, type "1" followed by 
<return>. 

7. If one wants to gather new data from the instruments, type "2" 
followed by <return>. 

8. If one wants to quit, type "3" followed by <return>. 

8. Retrieval of Data from Disk 

1. If one just typed “1", as described above, tne disk will have been 
activated for approximately ten seconds. 

The video monitor will show; 

ENTER YOUR CHOICE 

(1) RETRIEVE DATA FROM DISK 

(2) RECORD DATA FROM INSTRUMENTS 

(3) EXIT PROGRAM 

2. If one wishes to retrieve already stored data, type “1“ followed by 


9 



<return>. 


3. If one wishes to gather new data from the instruments, type "2" 
followed by <return>. 

4. If one wishes to exit, type "3" followed by <return>. 

(Data Retrieval) 

5. You will see 

ENTER THE RUN NUMBER 

6. Type the run number of tne desired data followed by <return>. 

7. Disk drive 1 will be activated. 

d. Wait for the "IN USE" light zo go off. 

9. You will see 

(1) OUTPUT TO PRINTER 

(2) OUTPUT TO PRINTER WITH AVERAGING 

10. Type the number of your choice, followed oy <return>. 

11. Be certain the "ON LINE" light of the printer is il luminatea. If 
the light is off, press the "ON LINE" button. The light should now 
be on. 

12. Check all cable connections if a problem occurs. 

13. After the printing is completed, the computer will display the menu 
shown in 81 above. 

Notes: (1) Choice 1 prints all data taken. Time is minutetsecond. 

(2) Choice 2 prints the data averaged together within each second. 
Time is minute:second. 

C. Collecting Data 

1. One will see the menu listed in A5. 

2. Enter your choice as described in A6, 7 and 8. 
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3. One will see 

ENTER THE RUN NUMBER 

4. Type the run number for the data followed by <return>. 

5. The screen will show the present readings of the instruments. 

6. The screen should show, for example: 


1) CELL OUTPUT 

0.00 

MV 

2) AMP OUTPUT 

0.00 

VOLTS 

3) CELL TEMP 

8.54 

DEGREES 

4) SAMPLE TEMP 

0 

DEGREES 

5) SAMPLE FLOW 

53 

CCM 

6) KEF FLOW 

22 

CCM 

7) CAVITY PRESS 

-10 

TORR 

•3) INLET PRESS 

2 

TORR 


TUE OCT 9 3:30:40 pm 

7. To save data, press the button on game paddle 1. 

8. To stop gathering data, press the button on game paddle 0. 

9. The disk drive will be activated. 

10. The menu in A5 will be displayed. 

11. Proceed as desired. 

D. Exiting the Program 

This choice ends the program. 

One can observe the files saved on disk by typing "CATALOG" <return>. 
Other available commands may be found in the APPLE DOS MANUAL . 
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APPENDIX A: 

SOFTWAKE FOR DATA ACQUISITION SYSTEM 
START. FETCH 


3 


3 

3LIST 


0 REM START. FETCH 9/20/84 

1 ONERR GOTO 2000 

3 CLECT - 34048« REM *8300 
5 HIMEM: 8192: REM *2000 
7 DIM A VA 1 ,8) 

10 D* ■ CHR* < 4) : FI « 0 

15 PRINT D* ; " BLOAD GETAI 1 3 ,A*9500 " 

17 PRINT D*;“ BLOAD SEVEN. INCH . 0,A*8500" 

IS PR# 0: HOME : CALL 1002: FI = 0 

19 POKE 34214,100: REM CHANGE FOR SAMPLE RATE 

20 PRINT "ENTER YOUR CHOICE" 

30 PRINT "<1> RETRIEVE DATA FROM DISK" 

40 PRINT ■ <2> DISPLAY AND COLLECT DATA FROM INSTRUMENTS" 

45 PRINT " <3> EXIT PROGRAM" 

50 INPUT CHOICE 

60 IF CHOICE < > 1 AND CHOICE < > 2 AND CHOICE < > 3 THEN GOTO 20 

65 IF CHOICE = 3 THEN END 

70 IF CHOICE = 2 THEN GOTO 500 

80 REM RETRIEVE DATA 

90 PR I NT D* ; " RUN BR I NG . BACK " 

500 REM DISPLAY AND DATA COLLECTION 
510 INPUT "ENTER THE RUN NUMBER " ;RU 


520 

530 

540 

345 

546 

547 
550 
360 
900 
910 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1130 

1160 

1170 

1172 

1173 
1173 
1210 


GOTO 
CALL 
SIZE * 
D* = 
CALL 


1000: REM 
CLECT 
< PEEK (2) 
CHR* < 4) 
1002 


DISPLAY 


* 256 + PEEK <1)> - 2 * 16 


RUN" ; RU } " ,A*2000 , L* {SIZE 


PRINT 
PRINT 
GOTO 18 

DATA 3, 8, 3, 1,0, 1,0, 1,0,1, 0,1, 0,1, 3, 1,3,1 

REM THE ABOVE NUMBERS ARE SLOT, SUM OF AVERGS , GAIN , AVERG FOR CHNL 
AIN , AVERG , ETC . 


REM 

HOME 

VTAB 

HTAB 

VTAB 

HTAB 

VTAB 

HTAB 

VTAB 

HTAB 

VTAB 

HTAB 

VTAB 

HTAB 

VTAB 

HTAB 

VTAB 

HTAB 

POKE 


DISPLAY ROUTINE 


2: HTAB 2: 
33: PRINT 
4: HTAB 2: 
33: PRINT 
6: HTAB 2: 
33: PRINT 
8: HTAB 2: 
33: PRINT 


10 : 

33: 

12 : 

33: 

14: 

33: 

16: 

33: 

33,33: 
RESTORE 
IF FI THEN 
READ SLOT 


HTAB 2: 
PRINT " 
HTAB 2: 
PRINT " 
HTAB 2: 
PRINT " 
HTAB 2: 
PRINT " 
REM 


PRINT "1. CELL OUTPUT * 
' MV " ; 

PRINT "2. AMP OUTPUT"; 
’VOLTS" ; 

PRINT "3. CELL TEMP" ; 
■DEGREES 

PRINT "4. SAMPLE TEMP"! 
■DEGREES" : 

'5. SAMPLE FLOW 


PRINT 
CCM" ; 

PRINT 
CCM" ; 

PRINT 
TORR" 

PRINT 
TORR" ; 

KEEP UNITS ON THE SCREEN 


" 7 . 


REF FLOW" ; 
CAVITY PRES" ; 


'8. INLET PRES* 


GOTO 1510 


G 
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1220 AX<0,0) * SLOT 

1 230 READ M 

1240 AX< 1 ,0) - - M 

1243 DUH » 1 

1250 FOR CHNL » 1 TO 8 

1253 READ GAIN,AVERG 

1260 FOR J - DUM TO <AUERG ■+ DUM - 1) 

1270 AX<0,J> » CHNL + 16 # GAIN 

1273 NEXT J 

1280 DUM - DUM + AUERG 

1 285 NEXT CHNL 

1290 POKE 8,1 ! CALL 38144 

1293 DUM » 1 

1300 RESTORE I /EAD A ,B 

1305 FOR CHNL - 1 TO 8 

1306 SUM - 0: READ C, AUERG 

1307 FOR J * DUM TO (AUERG ♦ DUM - 1> 

1308 SUM = All (1 , J ) + SUM 

1309 NEXT J 

1311 AX(1,CHNL) - INT <SUM / AUERG) 

i 31 3 DUM * DUM + AUERG 

1315 NEXT CHNL 

1370 FOR I - 1 TO 3 

1380 TEMP = AX (1,1) 

1390 ON I GOSUB 11000,12000,13000,14000,15000,16000,17000,13000 

1400 NEXT I 

1402 PR# 4: IN# 4 

1404 INPUT "X" ;TS 
' 406 PR# 0: IN# 0 

1 405 VTAB 20: HTAB 10: PRINT T* ; “ M ; 

1410 IF PEEK < - 162S6) > 127 THEN POKE 33,40: HOME : GOTO 530 
I42J GOTO 1290 

1500 J = 2 * 16 * 3 + 5: REM *2005 

1505 GOTO 1000 

1510 COUNT » 1 

1530 FOR I = 1 TO 8 

1540 A<1,I) = PEEK <J) # 236 ♦ PEEK <J + 1) 

1550 J = J + 2 
1 560 NEXT I 
1570 FOR I = 1 TO 8 
1572 TEMP » AX< 1,1) 

1574 ON I GOSUB 1 1 000 , 1 2000 , 1 3000 , 1 4000 , 1 5000 , 1 6000 , 1 7000 , 1 8000 

1 576 NEXT I 

1580 COUNT » COUNT + 1 

1390 IF J > - LN ♦ 8192 THEN GOTO 18 

1600 IF COUNT a 21 THEN J a J ♦ 4: GOTO 1510 
1610 GOTO 1530 

2000 REM ERROR HANDLING ROUTINE <DOS> 

2010 QZ « PEEK <222): REM ERROR CODE 
2020 FLASH 

2030 IF QZ * 8 THEN PRINT “I/O ERROR": PRINT "CHECK THE DISK DRIVE": GOTO 
2060 

2040 IF QZ - 9 THEN PRINT "DISK FULL": PRINT "CHANGE DISKS": GOTO 2060 
2050 PRINT "FATAL ERROR" 

2060 PRINT “PRESS 'RETURN'' WHEN READY - 
2065 NORMAL : PRINT 
2070 GET AA* 

2080 IF ASC < AA*) < >13 THEN GOTO 2070 

2100 PRINT 

2105 IF QZ < >8 AND QZ < >9 THEN GOTO 13 

2110 GOTO 540 
3800 REM 
3900 REM 

11000 UTAB 2: HTAB 22 

11010 QZ - 2 / 4096 

11020 RESULT » TEMP * QZ - 1.0 
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11030 RESULT - 100 # RESULT 
11035 RESULT « INT <100 * RESULT) / 100 
11040 Z* - STR* (RESULT) ♦ " 

11050 PRINT LEFT* <Z*,6)j 
11060 RETURN 
12000 UTAB 4 1 HTAB 22 
12010 QZ « 5 / 4096 

12012 IF TEMP < 9 THEN PRINT “0.00" }: GOTO 12050 
12020 RESULT * TEMP * Q2 
12030 Z* » STR* (RESULT) ♦ " 

12040 PRINT L rc T* <Z* f 4>; 

12050 RETURN 
13000 '/TAB 6 > HTAB 22 
13010 QZ - 5000 / 4096 
13020 RESULT « TEMP * QZ 
13030 Z* = STR* (RESULT) ♦ “ 

13040 PRINT LEFT* (Z*,6); 

13050 RETURN 
14000 UTAB 8: HTAB 22 
14010 QZ » 5 / 4096 
14020 RESULT * TEMP * QZ * 1000 
14030 RESULT = INT (RESULT + 0.5) 

14040 Z* = STR* (RESULT) 

140 70 2* = Z* + " 

14080 PRINT LEFT* (Z*,6); 

14090 RETURN 
15000 UTAB 10: HTAB 22 
15010 QZ = 20000 / 4096 
15020 RESULT = TEMP * QZ 
15030 R* = STR* (RESULT) + " . 

15040 2* « ” ,, 

15050 FOR QZ = 1 TO 6 

15060 IF MID* <P*,QZ,1) < > M . H THEN Z* = Z* + MID* (P*,QZ,1 

Z 

15070 Z* = Z* + " 


15080 PRINT LEFT* <Z*,6); 

15100 RETURN 
16000 UTAB 12: HTAB 22 
16010 QZ = 2000 / 4096 
16020 RESULT a TEMP * QZ 
16030 Z* » ■■ 

16040 P* » STR* (RESULT) + " . 

16050 FOR QZ a 1 TO 6 

16060 IF MID* <P*,QZ,1) < > THEN Z* » Z* + MID* (P*,QZ,1 

Z 

16070 Z* « Z* ♦ ■ 

16080 PRINT LEFT* <Z*,6>; 

16100 RETURN 
17000 UTAB 14: HTAB 22 
17010 QZ • 2 / 4096 
I 17020 RESULT a (TEMP - 2048) * QZ 
17030 RESULT » ioo * RESULT 

17035 RESULT « INT <10 * (RESULT ♦ 0.05)) / 10 
17040 Z* » 

17055 IF ABS (RESULT) < 0.05 THEN Z* ■ "O-OO": GOTO 17080 

17056 IF ABS (RESULT) a >0.05 THEN Z* ■ STR* (RESULT) 

17080 Z* » Z* + • 

17090 PRINT LEFT* (Z*,6)j 

17100 RETURN 

18000 UTAB 16: HTAB 22 

18010 QZ « 2 / 4096 

18020 RESULT * (TEMP - 2048) * QZ 

18030 RESULT ■ RESULT # 1000 

18040 Z* ■ "" 

13050 P* « STR* (RESULT) + ". ■ 

18055 IF ABS (RESULT) < T THEN P* ■ .* * P9 


> : NEXT Q 


: NEXT Q 
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18060 FOR QZ ■ 1 TO 6 

18070^ IF MI D* <P*,QZ,1> < > THEN Z* - Z* ♦ MID* <P*,QZ,l)i NEXT Q 

18080 Z* - Z* ♦ “ 

18090 PRINT LEFT* <Z*,6>f 
18100 RETURN 
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APPENDIX B: 

SOFTWARE FUR data acquisition system 
BRING. BACK 


3 

3LIST 

0 REM BRING. BACK 9/20/84 

5 HIMEM: 81 92 » REM *2000 
7 DIM XX<4> 

10 D* * CHR* (4) *F1 * 0 

18 PR* 0: HOME : CALL 1002:F1 - 0 

20 PRINT -ENTER YOUR CHOICE* 

30 PRINT *<1) RETRIEVE DATA FROM DISK- 
40 PRINT "(2) RECORD DATA FROM INSTRUMENTS* 

43 PRINT “(3) EXIT PROGRAM* 

30 INPUT CHOICE 

60 IF CHOICE < > 1 AND CHOICE < >2 AND CHOICE < >3 THEN GOTO 20 

65 IF CHOICE - 3 THEN END 

70 IF CHOICE - 2 THEN PRINT D*;*RUN START. FETCH- 

80 PRINT : PRINT 

90 INPUT -ENTER THE RUN NUMBER "jRU 
95 FL* * -RUN- + STR* <RU> 

100 REM RETRIEVE DATA FROM DISK 
110 PRINT D* } " BLQAD " ;FL* ; " ,A*2000 * 

120 LN - PEEK (4361^) # 256 + PEEK (4361*): REM LENGTH OF THE DATA 

140 PRINT "(1) OUTPUT TO PRINTER- 

143 PRINT "(2) OUTPUT TO PRINTER WITH AUERAGING " 

150 INPUT CHOICE 

160 IF CHOICE < > 1 AND CHOICE < > 2 THEN GOTO 130 

175 IF CHOICE » 2 THEN GOTO 3000 

130 REM PRINTING ROUTINE 

200 PR# 1 

210 FOR I » 1 TO 5 

220 PRINT 

230 NEXT I 

233 PRINT " RUN NUMBER ";RU: PRINT : PRINT 

240 PRINT " TIME CELL OUTPUT AMP OUTPUT CELL TEMP SAM 

PLE TEMP- 

230 PRINT - < SEC) (MV) (V) < DEGREES) (DEG 

REES) " 

260 FLAG - 0 

265 I * 1 i I F FLAG THEN I * 9 

275 IF FLAG THEN I - I - 8: REM RESET I TO GET TIME 

280 A* » CHR* < PEEK (8192 ♦ I)) + CHR* < PEEK <8193 + I)) + " t" + CHR* 
( PEEK (8194 + I)> ♦ CHR* < PEEK (8195 + I>> 

290 IF FLAG THEN I - I ♦ 12l GOTO 300: REM CHECK THIS FOR THE FIRST T 
I ME IN THE LOOP 
293 1*1+4 

300 PRINT - - | A* ] " *1 

305 ON »» 1 

310 FOR J ■ I TO I *6 STEP 2 

320 TEMP * PEEK <8192 ♦ J) * 256 + PEEK <8193 + J) 

330 IF NOT (FLAG) THEN ON DN GOSUB 11010,12010,13010,14010 
340 IF FLAG THEN ON DN GOSUB 1 30 1 0 , 1 60 1 0 , 1 70 1 0 , 1 80 1 0 
330 PRINT - *| 

355 DN * DN + 1 
360 NEXT J 
370 PRINT 
380 I * I ♦ 16 

410 IF I > - LN AND NOT (FLAG) THEN GOTO 430 
413 IF I > - LN AND FLAG THEN GOTO 18 
420 GOTO 275 

430 PRINT » PRINT » PRINT 

435 PRINT - RUN NUMBER *jRU» PRINT i PRINT ^ ^ 

440 PRINT - TIME SAMPLE FLOW REF FLOW CAVITY PRES I 

NLET PRES* 

450 PRINT - (SEC) <CCM> (CCM) (TORR) 


18 


<TORR>* 

470 FLAG « 1 
490 GOTO 269 

3000 REM AVERAGING ROUTINE 


3009 

PR# 1 




3010 

FOR I » 1 

TO 3t PRINT l NEXT I 



3020 

PRINT " 

RUN NUMBER "fRUi PRINT i 

PRINT 


3030 

PRINT " 
MPLE TEMP" 

TIME CELL OUTPUT 

AMP OUTPUT 

CELL TEMP 

3040 

PRINT ■ 
GREES)" 

< SEC) <MV> 

<v> 

< DEGREES) 

3090 

I - 1 




3060 

A* * CHR* 

< PEEK <8192 ♦ I)> ♦ CHR* < 

PEEK <8193 

+ I ) ) + " : " + 


< PEEK <8194 ♦ I)) ♦ CHR* < PEEK <8193 

♦ I)) 


3070 

TM - PEEK 

<8195 ♦ I> 



3080 

I - I ♦ 4 




3090 

FOR X » 1 

TO 4 iXX<X) » Ot NEXT X 



3100 

COUNT - 0 




3110 

FOR X » 1 

TO 4 



3120 

XX<X> • PEEK <8192 + I) # 256 + PEEK 

<8193 ♦ I) + 

XX<X) 

3130 

I - I ♦ 2 




3140 

NEXT X 




3150 

COUNT * COUNT + 1 



3155 

1*1+8 




3160 

TT * PEEK 

<8195 + I) 



3170 

IF TT * TM THEN I » I + 4s GOTO 3110 



3130 

REM AVERAGE DATA 



31 90 

FOR X * 1 

TO 4 



3200 

XX GO * XX<X> / COUNT 



3210 

NEXT X 




3220 

PRINT " 

M jA*; M " ; 



3230 

FOR X * 1 

TO 4 



3240 

TEMP - XX<X> 



3250 

ON X G0SU8 11010,1 20 10,1 30 10, 140 10 



3260 

PRINT " 

"1 



3270 

NEXT X 




3275 

PRINT 




3280 

IF I < LN 

- 8 THEN GOTO 3060 



3500 

I - 1 




3510 

FOR I » 1 

TO 3: PRINT t NEXT I 



3515 

PRINT " 

RUN NUMBER " jRUj PRINT : 

PRINT 


3530 

PRINT " 
INLET PRES" 

TIME SAMPLE FLOW 

REF FLOW 

CAVITY PRES 

3535 

PRINT " 

< SEC) < CCM) 

< CCM) 

<TORR> 


<TORR> " 




3350 

I - 1 





3960 A* ■ CHR* < PEEK <8192 + I)) + CHR* < PEEK <8193 ♦ I)) ♦ "i" + 
< PEEK <8194 + I)) ♦ CHR* < PEEK <8199 + I>> 

3970 TM - PEEK <8199 ♦ I) 

3980 I • I ♦ 12 

3990 FOR X * 1 TO 4lXX<X) ■ 0» NEXT X 

3600 COUNT - 0 

3610 FOR X » 1 TO 4 

3620 XX<X> - PEEK <8192 + I) * 256 ♦ PEEK <8193 ♦ I) ♦ XX<X> 

3630 1*1+2 
3640 NEXT X 
3690 COUNT - COUNT ♦ 1 
3660 TT » PEEK <8199 ♦ I) 

3670 IF TT - TM THEN I - I ♦ 12i GOTO 3610 

3680 REM AVERAGE DATA 

3690 FOR X * 1 TO 4 

3700 XX<X> - XX<X> / COUNT 

3710 NEXT X 

3720 PRINT ■ "|A*j" "| 

3730 FOR X * 1 TO 4 
3740 TEMP * XX<X> 


SA 

OE 

CHR* 


CHR* 
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3790 ON X GOSUB 19010, 16010, 17010. 18010 
3760 PRINT ■ "I 

3770 NEXT X 
3779 PRINT 

3700 IF I < UN THEN GOTO 3960 
3790 GOTO 1 8 
3800 REM 
3900 REM 

11000 UTAB 2 1 HTAB 22 
11010 QZ • 2 / 4096 
11020 RESULT - TEMP # QZ - 1 
11030 RESULT - 100 # RESULT 

11039 RESULT - INT <100 * RESULT) / 100 

11040 Z* - STR* (RESULT) ♦ * * 

11090 PRINT LEFT* (Z*,6)j 

11060 RETURN 

12000 VTAB 4 1 HTAB 22 

12010 QZ * 5 / 4096 

12012 IF TEMP < 9 THEN PRINT "0.00" m GOTO 12090 
12020 RESULT - TEMP # QZ 
12030 Z* * STR* (RESULT) + " 

12040 PRINT LEFT* (Z*,4)j 
12090 RETURN 
13000 VTAB 6 1 HTAB 22 
13010 QZ ■ 5000 / 4096 
13020 RESULT « TEMP # QZ 
13030 Z* * STP* (RESULT) + * 

13040 PRINT LEFT* (Z*,6)j 

1 3030 RETURN 

14000 UTAB 3s HTAB 22 

14010 QZ - 3 / 4096 

14020 RESULT « TEMP # QZ # 1000 

14030 RESULT * INT (RESULT ♦ 0.5) 

14040 Z* * STR* (RESULT) 

14070 Z* - Z* ♦ ■ 

14080 PRINT LEFT* (Z*,6)j 
14090 RETURN 
13000 l/TAB 10 1 HTAB 22 
15010 QZ - 20000 / 4096 
15020 RESULT - TEMP * QZ 
13030 P* * STR* (RESULT) ♦ - . 

13040 Z* « "" 

13090 FOR QZ * 1 TO 6 

13060 IF MID* (P*,GZ,1) < > ■ . • THEN Z* - Z* ♦ MI O* (P* ,QZ , 1 ) 1 NEXT Q 

Z 

13070 Z* - Z* + " 

19080 PRINT LEFT* (Z*,6)j 
13100 RETURN 
16000 VTAB 12s HTAB 22 
16010 QZ - 2000 / 4096 
16020 RESULT - TEMP * QZ 
16030 Z* - 

16040 P* - STR* (RESULT) ♦ ". 

16090 FOR QZ - 1 TO 6 

16060 IF MID* ( P* , QZ , 1 ) < > THEN Z* - Z* ♦ MID* (P*,QZ,l)s NEXT Q 

Z 

16070 Z* - Z* ♦ " 

16080 PRINT LEFT* (Z*,6)j 

16100 RETURN 

17000 VTAB 14 t HTAB 22 

17010 QZ - 2 / 4096 

17020 RESULT * (TEMP - 2048) # QZ 

17030 RESULT - 100 * RESULT 

17039 RESULT - INT (10 * (RESULT ♦ 0.03) > / 10 

17040 Z* - "" 

17053 IF ABS (RESULT; < 0.03 THEN Z* - "0.00" » GOTO 17080 


20 


>0.03 THEN 2S • STPS < RESULT) 


1703d IF ABS < RESULT) - 

l£S$8 ^PINf* LEFTS 
17100 RETURN 
18000 '/TAB 161 WTAB 22 
18010 QZ ■ 2 / 4096 
18020 RESULT * <TEMP - 2048) * QZ 
18030 RESULT - RESULT « 1000 
18040 ZS ■ "• 

18030 PS - STRS (RESULT) ♦ 

18033 IF ASS (RESULT) < 1 THEN PS ■ "0." ♦ PS 
13060 FOR Q2 * 1 TO 6 

18070 IF MIOS <PS,QZ,1> < > THEN Zt - ZS + MIDS (PS,QZ,l>i NEXT Q 

Z 

18080 ZS - ZS ♦ ■ 

18090 PRINT LEFTS <ZS,6)j 
18100 RETURN 


APPENDIX C: 

SOFTWARE FOR DATA ACQUISITION SYSTEM 
SEVEN. INCH. S 



i asm 






1 

* SEVEN. 

INCH. 

S, 10/16/84 





2 

* 








3 


SYM 







4 


ORG 

48500 






5 

RDTCP 

EQU 

SC408 

1 READ ENTRY POINT 





6 

WTTCP 

EQU 

4C40B 

j WRITE ENTRY POINT 





7 

SLOT 

ECU 

#C080+# 

50 





8 

P T R1 

EQU 

#01 






9 

C TR2 

EQU 

»02 






10 

UPBND 

EQU 

#80 






11 

LOBND 

EQU 

#00 






12 

PSHBTM 

EQU 

#C061 






13 

QN1 

EQU 

#51 






14 

GN2 

EQU 

#02 






15 

GNS 

EQU 

#13 






16 

GN4 

EQU 

#14 






17 

GNS 

EQU 

#05 






18 

GN6 

EQU 

#06 






19 

3N7 

EQU 

#57 






20 

GNS 

eciu 

#53 






21 

DELI 

EQU 

#03 







DEL2 

EQU 

#04 






— •-* 

TEMPI 

EQU 

#03 






24 

#25 

* INSERT 

MY VARIABLES 

HERE 





26 

* INITIALIZE 

routine 

HERE 





27 

# 




8500s 

A9 

20 


28 


LDA 

##20 


8502: 

85 

02 


29 


STA 

PTR2 

? CHECK VALUES HERE 

8504: 

A9 

00 


30 


LDA 

##00 


8506: 

85 

01 


31 


STA 

PTR1 


8508: 

20 

25 

85 

32 

START 

JSR 

TIME 

; GET THUNDF.RCLOCK DATA 

8508: 

20 

46 

85 



JSR 

ATOD 

: GET DATA FROM A/D 

850E: 

20 

A5 

85 

34 


JSR 

DELAY 

J DELAY FOR 20 PER SECOND 

8511: 

A5 

02 


35 

HALT 

LDA 

r'TR2 

; CHECK IF TOO MUCH DATA 

8513: 

C9 

80 


36 


CMP 

#UPBND 

! 

8515: 

DO 

03 


37 


BNE 

CONT 

1 KEEP GOING 

8517: 

18 



3B 


CLC 



8518: 

90 

05 


39 


BCC 

WAIT 


851 A: 

2C 

61 

r.y 

40 

CONT 

BIT 

PSHBTM 

* check pue:: button 

85 ID: 

10 

E9 


41 


BPL 

START 

I TAKE MORE DATA 

85 IF: 

2C 

61 

CO 

42 

WAIT 

BIT 

PSHBTM 

* 

8522: 

10 

ED 


43 


BEL 

HK1T 

| TOO MUCH DATA SO WAIT 

8524: 

60 



44 


RTS 







45 

* 








46 

***** 








47 

• 




8525: 

A9 

A3 


48 

TIME 

LDA 

##A3 

1 "#"- NUMERIC MODE 

8527: 

20 

OB 

C4 

49 


JSR 

WTTCP 

; SET NUMERIC READ MODE 

832A: 

20 

06 

C4 

50 


JSR 

RDTCP 

J PUT TIME IN GETLN BUFFER 

852D: 

AD 

OC 

02 

51 


LDA 

#20C 

j 1ST DIBIT OF MINUTE 

8530: 

20 

9A 

85 

52 


JSR 

SAVE 


8533: 

AD 

OD 

02 

53 


LDA 

*20D 

1 2ND DIGIT OF MINUTE 

8536: 

20 

9A 

85 

34 


JSR 

SAVE 


8539: 

AD 

OF 

02 

55 


LDA 

#2 OF 

| 1ST DIGIT OF SECOND 

853C: 

20 

9A 

85 

56 


JSR 

SAVE 


853F : 

AD 

10 

02 

37 


LDA 

#210 

| 2ND DIGIT OF SECOND 

8542: 

20 

9A 

85 

58 


JSR 

SAVE 


8545: 

60 



59 


RTS 







60 

* 








61 

~ls***# 




- 




62 

• 
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8546 

A9 

51 


63 

8548 

3D 

DO 

CO 

64 

854B 

20 

87 

85 

65 

854E 

A9 

02 


66 

8550 

8D 

DO 

CO 

67 

8553 

: 20 

87 

85 

68 

8556 

A9 

13 


69 

8558 

8D 

DO 

CO 

70 

855B 

20 

87 

85 

71 

855E 

A9 

14 


72 

8560 

8D 

DO 

CO 

73 

8563 

20 

87 

85 

74 

3566 

A9 

05 


75 

8568 

SD 

DO 

CO 

76 

856 B 

20 

87 

85 

77 

S56E 

A9 

06 


78 

8570 

8D 

DO 

CO 

79 

8573 

20 

87 

85 

30 

8576 

A9 

57 


81 

8578 

8D 

DO 

CO 

82 

857B 

20 

87 

85 

83 

857E 

A9 

58 


84 

3580 

8D 

DO 

CO 

85 

8533 

20 

87 

85 

E6 

8586 

60 



87 





88 





89 





90 

8537 

48 



91 

8588. 

68 



92 

8589: 

AD 

D 1 

CO 

93 

858C 


OF 


94 

858E: 

EA 



95 

B58F: AE 

DO 

CO 

96 

8592 

20 

9A 

85 

97 

8595 

8A 



98 

8596 

20 

9A 

85 

99 

8599 

60 



100 





101 





102 





103 

859 A: 

E6 

01 


104 

859C: 

DO 

02 


105 

859E: 

E6 

02 


106 

35A0: 

AO 

00 


107 

85A2: 

91 

01 


108 

85 A4s 

60 



109 





110 





111 





112 

85A5: 

A9 

OF 


113 

85A7: 

85 

03 


114 

85A9: 

A9 

FF 


115 

85AB: 

85 

04 


116 

85AD: 

06 

04 


117 

85AF: 

DO 

FC 


118 

8SB1 : 

06 

03 


119 

85B-v : 

DO 

F4 


120 

85BS: 

60 



121 





122 





123 





124 


ATOD 

LDA 

#GN1 


STA 

SLOT 


JSR 

STORE 


LDA 

#GN2 


STA 

SLOT 


JSR 

STORE 


LDA 

#GN3 


STA 

SLOT 


JSR 

STORE 


LDA 

#GN4 


STA 

SLOT 


JSR 

STORE 


LDA 

#GN5 


STA 

SLOT 


JSR 

STORE 


LDA 

#GN6 


STA 

SLOT 


JSR 

STORE 


LDA 

#GN7 


STA 

SLOT 


JSR 

STORE 


LDA 

SGN8 


STA 

SLOT 


JSR 

STORE 


RTS 


* 



***** 



* 



STORE 

PHA 

; 


PLA 

; 


LDA 

SLOT + 1 ; 


AND 

#$0F 


NOP 

4 


LDX 

SLOT 


JSR 

SAVE 


TXA 



JSR 

SAVE 


RTS 


* 



***** 



* 



SAVE 

INC 

PTR1 


BNE 

SKIP 


INC 

PTR2 

SKIP 

LDY 

4*00 


STA 

(PTR1 ) , Y 


RTS 


* 



***** 



* 



DELAY 

LDA 

#*0F 


STA 

DELI 

B 

LDA 

#fFF 


STA 

DEL2 

A 

DEC 

DEL2 


BNE 

A 


DEC 

DELI 


BNE 

B 


RTS 



* 

***** 

* 


DELAY TO COMPLETE 
4 sirs 
MSB 

* 

DELAY 


— — END ASSEMBLY 


24 


TOTAL ERRORS; 0 


132 BYTES GENERATED THIS ASSEMBLY 



